home *** CD-ROM | disk | FTP | other *** search
/ CD Schooolhouse Version 10.0 / CD Schooolhouse Version 10.0.ISO / pc / dos / math / nonlin / minfuel.nlr < prev    next >
Encoding:
Text File  |  1994-05-29  |  1.1 KB  |  26 lines
  1. /*
  2.  *  Compute how long to fire horizontal thrusters so that the total fuel
  3.  *  consumed is minimized.  The minimum value of the function is the total
  4.  *  amount of fuel that will be used.  The 'time' parameter is the length
  5.  *  of time that the horizontal thruster should be fired (in seconds).
  6.  */
  7. Title "Compute fire time for thruster to minimize total fuel consumption";
  8. Constant G=1.67;    // Gravitational acceleration on moon (meters/sec^2)
  9. Constant A=1.10;    // Acceleration from horizontal thruster (meters/sec^2)
  10. Constant burnrate=2.3;    // Kg/sec fuel burn rate to produce 1 G acceleration
  11. Constant dist=200;    // Horizontal distance to be moved (meters)
  12. Parameter time;        // Number of seconds to fire horizontal thruster
  13. Double hfuel;        // Fuel burned by horizontal thrusters
  14. Double vfuel;        // Fuel burned by vertical thrusters
  15. /*
  16.  *  Compute fuel burned by vertical thruster.
  17.  */
  18. vfuel = time * G * burnrate;
  19. /*
  20.  *  Compute fuel consumed by horizontal thrusters (start and stop).
  21.  */
  22. hfuel = 2 * time * A * burnrate;
  23.  
  24. Function burnrate*(2*time*A/G + 2*time + (dist - A*time^2)/(A*time));
  25. Data;
  26.